home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok08.lha / CreateAmokDisk1.1 / AmokIcons / Amokdoc.mod < prev    next >
Text File  |  1993-08-15  |  6KB  |  139 lines
  1.  
  2.           (* -------> IMPLEMENTATION MODULE <-------- *)
  3.  
  4. IMPLEMENTATION MODULE AmokDoc;
  5.  
  6. FROM SYSTEM IMPORT      WORD;
  7.  
  8. FROM Heap IMPORT        AllocMem;
  9.  
  10. VAR     i   :INTEGER;
  11.  
  12.  
  13.  
  14. BEGIN   (* MAIN *)
  15.  
  16. FOR i:=0 TO   1  DO
  17.   AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
  18. END;
  19.  
  20. Imgwidth := 48;
  21. Imgheight:= 24;
  22. Imgdepth :=  2;
  23.  
  24.  
  25.  
  26. WITH ImgPtr[Doc]^ DO         (* Doc *)
  27.  
  28.   (* Plane 1 *)
  29.  Dat[  0]:=00155H; Dat[  1]:=05555H; Dat[  2]:=00000H;(* 1*)
  30.  Dat[  3]:=00155H; Dat[  4]:=05555H; Dat[  5]:=01000H;(* 2*)
  31.  Dat[  6]:=00155H; Dat[  7]:=05555H; Dat[  8]:=01400H;(* 3*)
  32.  Dat[  9]:=00155H; Dat[ 10]:=05555H; Dat[ 11]:=01500H;(* 4*)
  33.  Dat[ 12]:=00155H; Dat[ 13]:=05555H; Dat[ 14]:=01540H;(* 5*)
  34.  Dat[ 15]:=00155H; Dat[ 16]:=05555H; Dat[ 17]:=00000H;(* 6*)
  35.  Dat[ 18]:=00155H; Dat[ 19]:=05555H; Dat[ 20]:=05550H;(* 7*)
  36.  Dat[ 21]:=00155H; Dat[ 22]:=05555H; Dat[ 23]:=05550H;(* 8*)
  37.  Dat[ 24]:=00155H; Dat[ 25]:=05555H; Dat[ 26]:=05550H;(* 9*)
  38.  Dat[ 27]:=00155H; Dat[ 28]:=05555H; Dat[ 29]:=05550H;(*10*)
  39.  Dat[ 30]:=00155H; Dat[ 31]:=05555H; Dat[ 32]:=05550H;(*11*)
  40.  Dat[ 33]:=00155H; Dat[ 34]:=05555H; Dat[ 35]:=05550H;(*12*)
  41.  Dat[ 36]:=00155H; Dat[ 37]:=05555H; Dat[ 38]:=05550H;(*13*)
  42.  Dat[ 39]:=00155H; Dat[ 40]:=05555H; Dat[ 41]:=05550H;(*14*)
  43.  Dat[ 42]:=00155H; Dat[ 43]:=05555H; Dat[ 44]:=05550H;(*15*)
  44.  Dat[ 45]:=00155H; Dat[ 46]:=05555H; Dat[ 47]:=05550H;(*16*)
  45.  Dat[ 48]:=00155H; Dat[ 49]:=05555H; Dat[ 50]:=05550H;(*17*)
  46.  Dat[ 51]:=00155H; Dat[ 52]:=05555H; Dat[ 53]:=05550H;(*18*)
  47.  Dat[ 54]:=00155H; Dat[ 55]:=05555H; Dat[ 56]:=05550H;(*19*)
  48.  Dat[ 57]:=00155H; Dat[ 58]:=05555H; Dat[ 59]:=05550H;(*20*)
  49.  Dat[ 60]:=00155H; Dat[ 61]:=05555H; Dat[ 62]:=05550H;(*21*)
  50.  Dat[ 63]:=00155H; Dat[ 64]:=05555H; Dat[ 65]:=05550H;(*22*)
  51.  Dat[ 66]:=00155H; Dat[ 67]:=05555H; Dat[ 68]:=05550H;(*23*)
  52.  Dat[ 69]:=00000H; Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*24*)
  53.  
  54.   (* Plane 2 *)
  55.  Dat[ 72]:=00000H; Dat[ 73]:=00000H; Dat[ 74]:=00000H;(* 1*)
  56.  Dat[ 75]:=00000H; Dat[ 76]:=00000H; Dat[ 77]:=00000H;(* 2*)
  57.  Dat[ 78]:=00000H; Dat[ 79]:=00000H; Dat[ 80]:=00000H;(* 3*)
  58.  Dat[ 81]:=00000H; Dat[ 82]:=00000H; Dat[ 83]:=00000H;(* 4*)
  59.  Dat[ 84]:=00000H; Dat[ 85]:=00000H; Dat[ 86]:=00000H;(* 5*)
  60.  Dat[ 87]:=00000H; Dat[ 88]:=00000H; Dat[ 89]:=00000H;(* 6*)
  61.  Dat[ 90]:=00000H; Dat[ 91]:=00000H; Dat[ 92]:=00000H;(* 7*)
  62.  Dat[ 93]:=00000H; Dat[ 94]:=00000H; Dat[ 95]:=00000H;(* 8*)
  63.  Dat[ 96]:=00000H; Dat[ 97]:=00000H; Dat[ 98]:=00000H;(* 9*)
  64.  Dat[ 99]:=00000H; Dat[100]:=00000H; Dat[101]:=00000H;(*10*)
  65.  Dat[102]:=00000H; Dat[103]:=00000H; Dat[104]:=00000H;(*11*)
  66.  Dat[105]:=00000H; Dat[106]:=00000H; Dat[107]:=00000H;(*12*)
  67.  Dat[108]:=00000H; Dat[109]:=00000H; Dat[110]:=00000H;(*13*)
  68.  Dat[111]:=00000H; Dat[112]:=00000H; Dat[113]:=00000H;(*14*)
  69.  Dat[114]:=00000H; Dat[115]:=00000H; Dat[116]:=00000H;(*15*)
  70.  Dat[117]:=00000H; Dat[118]:=00000H; Dat[119]:=00000H;(*16*)
  71.  Dat[120]:=00000H; Dat[121]:=00000H; Dat[122]:=00000H;(*17*)
  72.  Dat[123]:=00000H; Dat[124]:=00000H; Dat[125]:=00000H;(*18*)
  73.  Dat[126]:=00000H; Dat[127]:=00000H; Dat[128]:=00000H;(*19*)
  74.  Dat[129]:=00000H; Dat[130]:=00000H; Dat[131]:=00000H;(*20*)
  75.  Dat[132]:=00000H; Dat[133]:=00000H; Dat[134]:=00000H;(*21*)
  76.  Dat[135]:=00000H; Dat[136]:=00000H; Dat[137]:=00000H;(*22*)
  77.  Dat[138]:=00000H; Dat[139]:=00000H; Dat[140]:=00000H;(*23*)
  78.  Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  79.  
  80. END;
  81.  
  82.  
  83. WITH ImgPtr[DocH]^ DO         (* DocH *)
  84.  
  85.   (* Plane 1 *)
  86.  Dat[  0]:=00155H; Dat[  1]:=05555H; Dat[  2]:=00000H;(* 1*)
  87.  Dat[  3]:=00155H; Dat[  4]:=05555H; Dat[  5]:=01000H;(* 2*)
  88.  Dat[  6]:=00155H; Dat[  7]:=05555H; Dat[  8]:=01400H;(* 3*)
  89.  Dat[  9]:=00155H; Dat[ 10]:=05555H; Dat[ 11]:=01500H;(* 4*)
  90.  Dat[ 12]:=00155H; Dat[ 13]:=05555H; Dat[ 14]:=01540H;(* 5*)
  91.  Dat[ 15]:=00155H; Dat[ 16]:=05555H; Dat[ 17]:=00000H;(* 6*)
  92.  Dat[ 18]:=00155H; Dat[ 19]:=05555H; Dat[ 20]:=05550H;(* 7*)
  93.  Dat[ 21]:=00155H; Dat[ 22]:=05555H; Dat[ 23]:=05550H;(* 8*)
  94.  Dat[ 24]:=00155H; Dat[ 25]:=05555H; Dat[ 26]:=05550H;(* 9*)
  95.  Dat[ 27]:=00155H; Dat[ 28]:=05555H; Dat[ 29]:=05550H;(*10*)
  96.  Dat[ 30]:=00155H; Dat[ 31]:=05555H; Dat[ 32]:=05550H;(*11*)
  97.  Dat[ 33]:=00155H; Dat[ 34]:=05555H; Dat[ 35]:=05550H;(*12*)
  98.  Dat[ 36]:=00155H; Dat[ 37]:=05555H; Dat[ 38]:=05550H;(*13*)
  99.  Dat[ 39]:=0015FH; Dat[ 40]:=0F555H; Dat[ 41]:=055F0H;(*14*)
  100.  Dat[ 42]:=0017FH; Dat[ 43]:=0F555H; Dat[ 44]:=055F0H;(*15*)
  101.  Dat[ 45]:=001FFH; Dat[ 46]:=0FFFFH; Dat[ 47]:=0FFFFH;(*16*)
  102.  Dat[ 48]:=003FFH; Dat[ 49]:=0FFFFH; Dat[ 50]:=0FFFFH;(*17*)
  103.  Dat[ 51]:=00FFFH; Dat[ 52]:=0FFFFH; Dat[ 53]:=0FFF0H;(*18*)
  104.  Dat[ 54]:=03FD7H; Dat[ 55]:=0FFFFH; Dat[ 56]:=0FFFFH;(*19*)
  105.  Dat[ 57]:=0FF57H; Dat[ 58]:=0FFFFH; Dat[ 59]:=0FFFFH;(*20*)
  106.  Dat[ 60]:=00155H; Dat[ 61]:=05555H; Dat[ 62]:=05550H;(*21*)
  107.  Dat[ 63]:=00155H; Dat[ 64]:=05555H; Dat[ 65]:=05550H;(*22*)
  108.  Dat[ 66]:=00155H; Dat[ 67]:=05555H; Dat[ 68]:=05550H;(*23*)
  109.  Dat[ 69]:=00000H; Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*24*)
  110.  
  111.   (* Plane 2 *)
  112.  Dat[ 72]:=00000H; Dat[ 73]:=00000H; Dat[ 74]:=00000H;(* 2*)
  113.  Dat[ 75]:=00000H; Dat[ 76]:=00000H; Dat[ 77]:=00000H;(* 3*)
  114.  Dat[ 78]:=00000H; Dat[ 79]:=00000H; Dat[ 80]:=00000H;(* 4*)
  115.  Dat[ 81]:=00000H; Dat[ 82]:=00000H; Dat[ 83]:=00000H;(* 5*)
  116.  Dat[ 84]:=00000H; Dat[ 85]:=00000H; Dat[ 86]:=00000H;(* 6*)
  117.  Dat[ 87]:=00000H; Dat[ 88]:=00000H; Dat[ 89]:=00000H;(* 7*)
  118.  Dat[ 90]:=00000H; Dat[ 91]:=00000H; Dat[ 92]:=00000H;(* 8*)
  119.  Dat[ 93]:=00000H; Dat[ 94]:=00000H; Dat[ 95]:=00000H;(* 9*)
  120.  Dat[ 96]:=00000H; Dat[ 97]:=00000H; Dat[ 98]:=00000H;(*10*)
  121.  Dat[ 99]:=00000H; Dat[100]:=00000H; Dat[101]:=00000H;(*11*)
  122.  Dat[102]:=00000H; Dat[103]:=00000H; Dat[104]:=00000H;(*12*)
  123.  Dat[105]:=00000H; Dat[106]:=00000H; Dat[107]:=00000H;(*13*)
  124.  Dat[108]:=00000H; Dat[109]:=00000H; Dat[110]:=00000H;(*13*)
  125.  Dat[111]:=0000FH; Dat[112]:=0E000H; Dat[113]:=000E0H;(*14*)
  126.  Dat[114]:=0003FH; Dat[115]:=0E000H; Dat[116]:=000E0H;(*15*)
  127.  Dat[117]:=000FFH; Dat[118]:=0EFFEH; Dat[119]:=0FEFFH;(*16*)
  128.  Dat[120]:=003FBH; Dat[121]:=0EFFEH; Dat[122]:=0FEFFH;(*17*)
  129.  Dat[123]:=00FFFH; Dat[124]:=0EFFEH; Dat[125]:=0EEE0H;(*18*)
  130.  Dat[126]:=03F83H; Dat[127]:=0FEEFH; Dat[128]:=0FFFFH;(*19*)
  131.  Dat[129]:=0FE03H; Dat[130]:=0FEEFH; Dat[131]:=0FFFFH;(*20*)
  132.  Dat[132]:=00000H; Dat[133]:=00000H; Dat[134]:=00000H;(*21*)
  133.  Dat[135]:=00000H; Dat[136]:=00000H; Dat[137]:=00000H;(*22*)
  134.  Dat[137]:=00000H; Dat[139]:=00000H; Dat[140]:=00000H;(*23*)
  135.  Dat[140]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;(*23*)
  136.  
  137. END;
  138. END AmokDoc.
  139.